home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 February / PCWorld_2000-02_cd.bin / Software / Vyzkuste / xsetup / _SETUP.2 / Group3 / XQ IE Server Connections.xpl < prev    next >
Text File  |  1999-10-20  |  2KB  |  71 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="2"
  3. "COUNT"="2"
  4. "UIPATH"="Internet\Internet Explorer\System"
  5. "NAME"="Server Connections"
  6. "VERSION"="1.11"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="HTTP/1.0 Conn."
  9. "TEXT 2"="HTTP/1.1 Conn."
  10. "DESCRIPTION 1"="These settings configure the number of simultaneous requests to a single WWW server. They are splited in 1.0 servers (old HTTP standard) and 1.1 servers (modern HTTP standard)."
  11. "DESCRIPTION 2"="Typical settings are "4" for 1.0 servers and "2" for 1.1 servers (RFC2068)."
  12. "DESCRIPTION 3"="To restore the original settings, clear both fields."
  13. "AUTHOR"="Xteq Systems"
  14. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  15. "COMMENT 1"="For more information, go to http://www.xteq.com or write to TeXHeX@xteq.com."
  16. "COMMENT 2"=" "
  17. "COMMENT 3"="Thanks to AXCEL216 (http://members.aol.com/axcel216/) and CptSiskoX!"
  18. "COMMENT 4"="Thans to Guy [dr_teeth@bigfoot.com] for the the notice about the "default values incorrect" bug."
  19.  
  20.  
  21. 'sP="HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings\" 'wrong?
  22. sP="HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\"
  23. sV1="MaxConnectionsPer1_0Server"
  24. sV2="MaxConnectionsPerServer"
  25. Sub Plugin_Initialize  
  26.  if RegPathExists(sP) then
  27.  
  28.     i=RegReadValue(sP & sV1)
  29.     SetUIElement 1,i
  30.  
  31.     i=RegReadValue(sP & sV2)
  32.     SetUIElement 2,i
  33.  
  34.  else
  35.     Disable
  36.  end if
  37. End Sub
  38.  
  39. Sub Plugin_CheckData(ElementIndex)
  40. End Sub
  41.  
  42. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  43.  i=GetUIElement(1)
  44.  if len(i)=0 then
  45.     i=RegReadValue(sP & sV1)
  46.     if IsEmpty(i)=false then
  47.        Call RegDeleteValue(sP & sV1)
  48.     end if
  49.  else
  50.     Call RegWriteValue(sP & sV1,i,2)
  51.  end if
  52.  
  53.  i=GetUIElement(2)
  54.  if len(i)=0 then
  55.     i=RegReadValue(sP & sV2)
  56.     if IsEmpty(i)=false then
  57.        Call RegDeleteValue(sP & sV2)
  58.     end if
  59.  else
  60.     Call RegWriteValue(sP & sV2,i,2)
  61.  end if
  62.  
  63.  
  64.  
  65.  
  66.  Call Logoff()
  67. End Sub
  68.  
  69. Sub Plugin_Terminate 
  70. End Sub
  71.